inherited FUpesquisaResumoReceitaDespesa: TFUpesquisaResumoReceitaDespesa
  Left = 335
  Top = 174
  Caption = 'Pesquisa Resumo Recita X Despesa'
  ClientHeight = 349
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Left = 321
      Visible = False
    end
    inherited BtnFechar: TBitBtn
      Left = 242
    end
  end
  inherited Panel1: TPanel
    Height = 308
    object Label1: TLabel [0]
      Left = 8
      Top = 16
      Width = 86
      Height = 13
      Caption = 'Grupo Fornecedor'
    end
    object Label10: TLabel [1]
      Left = 4
      Top = 175
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label4: TLabel [2]
      Left = 240
      Top = 16
      Width = 64
      Height = 13
      Caption = 'Grupo Cliente'
    end
    inherited DBGrid1: TDBGrid
      Top = 357
      Align = alNone
      Visible = False
    end
    inherited Panel3: TPanel
      Top = 287
    end
    object edGrupoForn: TEdit
      Left = 98
      Top = 8
      Width = 89
      Height = 21
      TabOrder = 2
      OnKeyPress = edGrupoClienteKeyPress
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 40
      Width = 397
      Height = 105
      Caption = '  Per'#237'odo de Compet'#234'ncia  '
      TabOrder = 3
      object Label2: TLabel
        Left = 176
        Top = 37
        Width = 92
        Height = 13
        Caption = 'Compet'#234'ncia Inicial'
      end
      object Label3: TLabel
        Left = 176
        Top = 61
        Width = 87
        Height = 13
        Caption = 'Compet'#234'ncia Final'
      end
      object rbVencto: TRadioButton
        Left = 8
        Top = 24
        Width = 113
        Height = 17
        Caption = 'Vencimento'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object rbLancto: TRadioButton
        Left = 8
        Top = 48
        Width = 113
        Height = 17
        Caption = 'Lan'#231'amento'
        TabOrder = 1
      end
      object rbDocto: TRadioButton
        Left = 8
        Top = 72
        Width = 113
        Height = 17
        Caption = 'Documento'
        TabOrder = 2
      end
      object deIni: TDateTimePicker
        Left = 280
        Top = 29
        Width = 75
        Height = 21
        CalAlignment = dtaLeft
        Date = 38601.3885543171
        Format = 'MM/yyyy'
        Time = 38601.3885543171
        DateFormat = dfShort
        DateMode = dmUpDown
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
      end
      object deFinal: TDateTimePicker
        Left = 280
        Top = 53
        Width = 75
        Height = 21
        CalAlignment = dtaLeft
        Date = 38601.388635162
        Format = 'MM/yyyy'
        Time = 38601.388635162
        DateFormat = dfShort
        DateMode = dmUpDown
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
      end
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 4
      Top = 150
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 4
      OnClick = CkBTodasEmpresasClick
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 190
      Width = 409
      Height = 97
      Align = alBottom
      ItemHeight = 13
      TabOrder = 5
    end
    object edGrupoCliente: TEdit
      Left = 312
      Top = 8
      Width = 89
      Height = 21
      TabOrder = 6
      OnKeyPress = edGrupoClienteKeyPress
    end
  end
  inherited QPesquisa: TQuery
    Active = True
    SQL.Strings = (
      'SELECT DISTINCT'
      '  CLIENTE.CLI_CODIGO,'
      '  CLIENTE.CLI_FANTASIA'
      'FROM'
      ' CLIENTE'
      
        ' INNER JOIN CONTASRECEBER ON (CLIENTE.CLI_CODIGO = CONTASRECEBER' +
        '.CR_CLIENTE)'
      'WHERE'
      '  (CONTASRECEBER.CR_SALDO > 0)'
      'GROUP BY'
      '  CONTASRECEBER.CR_DATADOCUMENTO,'
      '  CONTASRECEBER.CR_DATATITULO,'
      '  CONTASRECEBER.CR_DATAVENCIMENTO,'
      '  CLIENTE.CLI_FANTASIA,'
      '  CLIENTE.CLI_RAZAO,'
      '  CLIENTE.CLI_CODIGO'
      'ORDER BY'
      '  CONTASRECEBER.CR_CLIENTE,'
      '  CONTASRECEBER.CR_DATADOCUMENTO')
    Left = 152
  end
  inherited DSPesquisa: TDataSource
    DataSet = cdsRelatorio
    Left = 224
  end
  object cdsRelatorio: TClientDataSet
    Aggregates = <>
    IndexFieldNames = 'MES_ANO'
    Params = <>
    Left = 328
    Top = 176
  end
  object Qauxiliar: TQuery
    DatabaseName = 'base'
    Left = 128
    Top = 56
  end
end
